home *** CD-ROM | disk | FTP | other *** search
/ The Uninvited Press Kit / THE UNINVITED.iso / pc / program.dxr / Internal_28_SaveFile Path.ls < prev    next >
Encoding:
Text File  |  2008-12-30  |  893 b   |  33 lines
  1. global gSvFile, basicSavePath, dLM, origFile
  2.  
  3. on exitFrame me
  4.   FindMac = the platform contains "mac"
  5.   if FindMac then
  6.     the itemDelimiter = ":"
  7.     gLF = RETURN
  8.   else
  9.     the itemDelimiter = "\"
  10.     gLF = RETURN & numToChar(10)
  11.   end if
  12.   dsk = baSysFolder("Desktop")
  13.   dLM = the itemDelimiter
  14.   xyz = the moviePath
  15.   origFile = xyz & "data" & dLM
  16.   winSave = dsk & "\"
  17.   fxObj = xtra("FileXtra4").new()
  18.   if the platform contains "mac" then
  19.     newMacPath = fxObj.fx_FileSaveAsDialog(basicSavePath, "THE UNINVITED Images", "Save Images to what Location ?")
  20.     gSvFile = newMacPath & dLM
  21.     if newMacPath = EMPTY then
  22.       go("Save")
  23.     end if
  24.   else
  25.     newWinPath = fxObj.fx_FileSaveAsDialog(basicSavePath, "THE UNINVITED Images", "Save Images to what location?", 0)
  26.     gSvFile = newWinPath & dLM
  27.     if newWinPath = EMPTY then
  28.       go("Save")
  29.     end if
  30.   end if
  31.   fxObj = 0
  32. end
  33.